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Vox-000 Breer ibe Obiesioe | PANCMES Hace, V04, oa 
TITLE RSE = REPORT SYSTEM EVENT 
“IDENT "WBe=0c8" 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 
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AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
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ABSTRACT: 
THIS MODULE CONTAINS THE SYSTEM EVENT REPORTING ROUTINES AND 
THEIR SUPPORTING SUBROUTINES. 


ENVIRONMENT: 
MODE = KERNEL 


SSSSSSSSsssssssssssssssssssssssssss 


SOoooooooo 


ooo 
ooo 


soe 

; FACILITY: EXECUTIVE, SCHEDULER 
| 
| 
| 


62 sear Fer 
3-00 fA TSE MCSEEIOH SU:OHSt HNOUTRGRSESMNT? | 


EM C 
ORY ; DETA - SYS.SRCIRSE.MAR; 1 
¢ ‘ -SBTTL HISTORY 3 DETAILED 
4¢ i AUTHOR: R. HUSTVEDT CREATION DATE: 6-SEP-76 | 
44 : v03-008 $$a0015 Stan Amway 8-Mar-1984 
45 ; Allow expansion of work ing set if PFRATH exceeded and 
$ 3 number of active pages (PPG + GPG) exceeds 75% of WSSIZE. 
47 ; Previously, expansion was done only if the number of active 
$8 3 pages was equal to WSSIZE. 
49 ; (Acknowledgements go to wayne Cardoza and Larry Kenah, 
0 9 ; who both collaborated on this change.) 
¢ ; V03-007 wMc0002 Wayne Cardoza 28-F eb-1984 
09 ? ; Fix checks for waking swapper. 
$0 55: v03-006 LY00B4 Larry Yetto 10-FEB-1984 10:29 
444 2$ : Fix truncation errors 
O60 Ht : v03-005 TMK0002 Todd M. Katz 27-Dec-1983 
445 2B : Fix broken branches. 
$009 61 : V03-004 S$SA0003 Stan Amway 5-Dec-1983 
0000 $¢ 3 Added support for outswap scheduling changes. 
0000 63 ; Record event time for process unwait and quantum end 
464 64 ; event. 
0000 65 ; 
B38 66 ; v03-003 TMKO001 Todd M. Katz 13-Nov-1983 
44 rt 3 Fix broken branches. 
4 83 : v03-002 TCmM0001 Trudy C. Matthews snagen 1903 
0 0; Change references to working set fields in PHD so that 
4 4 3 they are used as unsigned words. 
$00 oS : v03-001 wmMCc0001 Wayne Cardoza 11-Mar-1983 
000 74; Bad comparison against BORROWLIM. 
000 2 8 
000 76 
| 
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R - REPORT SYSTEM EVENT 16-SEP-1984 01:06:34 VAX/VMS Macro V04-00 Pa 
¥0e-000 DECLARATIONS Breer obe bs ieoibe  FONEMES Bacco V04s oe | 
28 .SBTTL DECLARATIONS | 
? ; INCLUDE FILES: | 
: ; SACBDEF : DEFINE AST CONTROL BLOCK 
4 SDYNDEF t DEFINE STRUCTURE TYPE CODES 
00 § SCEBDEF : DEFINE COMMON EVENT BLOCK | 
0 6 SIPLDEF : IPL DEFINITIONS 
SPCBDEF + PCB DEFINITIONS 
: SPHDDEF + PROCESS HEADER DEFINITIONS 
SPROEF + PROCESSOR REGISTER DEFS 
0 SPRIDEF t PRIORITY INCREMENT CLASSES 
00 91 SSSDEF : DEFINE STATUS CODES 
00 36 SSTATEDEF : STATE DEFINITIONS 
00 93 SWOHDEF + WAIT QUEUE HEADER DEFINITIONS 
0000 99 + MACROS 
0000 $ : MACRO EVENT -EVTN,STATLIST ,EACTION, CONT=0 
0000 133 EVTS_*EVENSSEVICTR: 
900 101 EVTCTR=EVTICTR#1 
900 108 en .WORD EACTION-STACT 
000 194 ree BSECT AES2,BYTE 
000 105 STMSK=CONT 
0000 (1 6 P <STATLIST> 
99 107 STmsK=sTAgkectascHée, 'ST> 
000 109 FONG STMSK 
000 110 “PSECT AES1,BYTE 
90 111 .=RSE... 
0 118 .ENDM = EVENT 
09 114; 
200 115 ; GENERATE MASK FOR WAIT STATES 
00 i : GMASK STATENAME 
119 ° 
120 .MACRO GMASK,STATE 
0 121 ST=SCHSC_ "STAT 
1 ; WAITST=WAITST+#<1aST> 
; .ENDM = GMASK 
5 EQUATED SYMBOLS: 
00 1 $ Evrctrs9 : INITIALIZE EVENT COUNTER TO 0 
00 1 : WAITST= t INITIALIZE WAIT STATE MASK 
129 ASTEXIT=0 ; AST EXIT CHANGE MODE CODE | 
i : OWN STORAGE: 
Py | 
00 1 .PSECT AES2,BYTE : STATE EVENT MASK PSECT 
00000086 134 sTet= - t BASE OF STATE EVENT TABLE | 
| 
| 
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b = REPORT SYSTEM EVENT 16-SEP-1984 01:06:34 VAX/VMS Macro V04-00 p 
¥8e-000 SCHSRSE = REPORT SYSTEM EVENT greeks BbiSibe PANCMES Macro, VO4; ae 2, 

LSBTTL SCHSRSE - REPORT SYSTEM EVENT 

{ FUNCTIONAL DESCRIPTION: 

SCHERSE RECEIVES SYSTEM EVENT REPORTS FROM VARIOUS SOURCES 

AND PERFORAS THE APPROPRIATE ACTION FOR THE SPECIFIED PROCESS. 

EVENT REPORTING MUST BE PERFORMED WITH IPL=IPL$ SYNCH. 

AS A SIDE EFFECT OF AN EVENT REPORT, THE RESCHEBULING INTERRUPT 

MAY BE TRIGGERED IF APPROPRIATE. 

CALLING. SEQUENCE : 
BSB/JSB SCH 


RSE 
-BYTE EVTS_EVENTNAME 
THIS CALLING SEQUENCE IS GENERATED BY THE RPTEVT SYSTEM MACRO 
REPEVT EVENTNAME 
INPUT 4 yoy Hs $: 
R2 = SITUATIONAL PRIORITY INCREMENT CLASS NUMBER 
- PCB ADDRESS OF PROCESS FOR WHICH EVENT IS REPORTED 


ENT NUMBER CONTAINED IN BYTE LOCATED BY ADDRESS AT TOP 
STACK. @(SP) 
I 


NPUTS: 
HEDULER DATA BASE 


ARAMETERS: 
NE 


E 
0 
IMPLICI 
S 


RG 
V 
F 
T 
C 
Pp 
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OUTPUT 
NO 

IMPLICIT OUTPUTS: 
NONE 

sorta! CODES: 


SIDE wg HF 
gt! MAY BE REQUESTED IF THE SPECIFIED 


I 
ER IN PRIORITY THAN THE CURRENT PROCESS. 


SCHSRSE: : 


; REPORT SYSTEM EVENT 
53 00 rt OA MOVZBL @(SP),R3 ; GET EVENT R 
6 INCL (SP ; UPDATE RETURN ADDRESS 
C MOVZWL PCBSW EU i ; GET CURRENT STATE NUMBER 
0“ d0008 crs D 10$: MOVL y ster R3J,RO ; GET STATE MASK FOR EVENT 
E BBS R1,RO,ACTION ; ION_IF STATE BIT SET 
3 D INCL 8 ; CHECK NEXT ACTION 
Fi 3 BLBS RO,108 ; IF CONTINUATION 
RSB ; OTHERWISE IGNORE EVENT 


OA‘ 00 53 CF ON EVENT NUMBER(UPDATED) 


ON: CASEL R3,#0,S*#MAXEVT SWITCH 
T: BASE OF ACTION TABLE 
NT 
| 


EVENT AST,<= 
CE 


a a a a a ad hd dd dd 
WOO O09 09. 09.09.09 09. 09 09 0909 SII NDE DS ODDS TTT BB BS BS EI 


R= OOD NANES WN 9 OD NA NE WIN 9 OD NAME WIN 9 ODNOA UE  O ODNOAUE WH OOOn 


AST 
COMMON EVENT FLAG WAIT 
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RSE = REPORT SYSTEM EV ENT 16-SEP-1984 01:06:34 VAX/VMS Macro V04-00 Page 
Vox-000 SCHSRSE = REPORT SYSTEM EVENT ~$FO=1 387 84:06:34 SYS.SRCIRSE.MAR; 1 ° ay 
1€ 194 COLPG,- F COLLIDED PAGE WAIT 
iE 19 FPG,= + FREE PAGE WAIT 
“ é HIB.= + RESIDENT HIBE 
1— 19 HIBO,- + NON-RESIDENT HIBERNATE 
1E 198 LEF,< + LOCAL EVENT FLAG WAIT 
16 19 LEFO,- + LOCAL EVENT FLAG WAIT (NON-RES) 
1E p WAIT ,- : MUTEX WAIT 
1E PFW,= : PAGE FAULT WAIT 
1 g >, EVENTE : AST EXECUTABLE STATE CHANGE 
00000000 ; EVT$_COLPGA==EVTS$_AST + USE SAME EVENT FOR COLLIDED PAGE AVAIL 
© 
: EVENT EVENT,<LEF>,L + EVENT, FLAG SETTING 
0 0 EVENT ,<CEF>,CEFEVT ; COMMON EVENT FLAG SET 
0 4 08 EVENT  ;<LEFO>, EVENT : NON-RESIDENT LOCAL EVENT 
op 6 210 EVENT FPGA,<- : FREE PAGE AVAILABLE 
026 211 PG,- : FREE PAGE WAIT STATE 
0026 le >, EVENTF > EXECUTABLE STATE CHANGE 
00 8 1 EVENT AKE .<- : WAKE EVENT 
00 14 + RESIDENT HIBERNATE 
0028 215 Wied, - : NON-RESIDENT HIBERNATE 
0028 216 >, EVENTE ; 
S05, S18 
00 A 219 EVENT RESUME,<- ; RESUME EVENT 
02A 0 SUSP + RESIDENT SUSPENDED 
002A 1 SUSPO, = : NONRESIDENT SUSPENDED 
002A g >, EVENTE : EXECUTABLE 
b05¢ 59% 
00 ¢ 5 EVENT PFCOM,<- : PAGE FAULT COMPLETE EVENT 
02¢ 6 PFW,- : PAGE FAULT WAIT 
vo C f >, EVENTE : EXECUT ABLE 
00 E 9 EVENT  SETPRI,<- : SET PRIORITY EVENT 
O2E 0 COM,- : RESIDENT COMPUT 
002£ 1 COMO, - : NON-RESIDENT COMPUTE 
0 ; >, EVENTF > EXECUTABLE 
0 4 EVENT SWPOUT,<- ; SWAP OUT EVENT | 
0 5 HIB,- : RESIDENT HIBERNATE 
0 : LEF.= + RESIDENT LOCAL EVENT FLAG WAIT 
SUSP, = > RESIDENT suSP ENDED 
§ >, SWPO, CONT=1 : SIMPLE SWAP OUT 
9 EVENT <= : SWAP OUT EVENT CONINUATION 
40 om,- + RESIDENT COMPUTE 
7 >, SWPOE + EXECUTABLE OUTSWAP 
4 243; 
4 44 i : IF CASE FALLS THROUGH, THEN BUGCHECK WITH ILLEGAL EVENT 
4 546: 
0000000A 4 29 i MAXEVT=EVTCTR=1 ; MAXIMUM EVENT NUMBER 
‘ 48 BUG_CHECK ILLEVTNUM, FATAL : ILLEGAL EVENT NUMBER 
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Vox-000 SCHSRSE = REPORT SYSTEM EVENT "er 1382 8}: 9g: 3 SYS.SRCIRSE.MAR; 1 vd 

; COMMON EVENT FLAG SET 

tEFEVT: ; 
: BLBC —- PCBSL_STS(R4),EVENTE =; BR IF NOT RESIDENT 
: LEFEVT: ; LOCAL EVENT FLAG SET FOR RESIDENT PROCESS 
MOVL pcest PHD (R4) R3 ; POINT TO PHD 
8 ADDL HOSL_PC(RS) : SKIP PC OVER CHMK INSTRUCTION 
; MOVZWL #565 WNORRAL, PHDSL_RO(R3); SET NORMAL COMPLETION FOR WAIT 


T 
Pp 
OE 24 AG OEY 
a cs tt OB Be 
808 £3 of sc 4 
4A 
4A 
4A 
4A 
A 
4A 
0 
0 


: EVENT EXECUTABLE ACTION ROUTINE 
4 4 EVENTE: ; EVENT EXECUTABLE STATE CHANGE 
5 EVENTF: t ACTIVATE WITH NO WAIT TIME ACCOUNTING 
BB'AF OF 004A 6 PUSHAB B*SCHSCHSE : MAKE UNWAIT EXIT THROUGH CHSE 
° rt} 5 ; BRB SCHSUNWAIT ; AND FALL INTO UNWAIT 


R = REPORT SYST 
voe-000 SCHSUNWAIT = 


T  16*SEP=1984 01:06:34 VAX/VMS Macro V04-00 Pp 
NT COUNT IN WAIT QUE 'SaSEp-19B4 OSino04 FeneMes Macro Ves oe Of, 


~SBTTL SCHSUNWAIT = DECREMENT COUNT IN WAIT QUEUE 


FUNCTIONAL DES 
SCHSUNWA 
QUEUE SE 


CALLING SEQUENCE: 
BSB/JSB SCHSUNWAIT 


INPUT PARAMETERS: 
Ri = STATE NUMBER (PRESERVED) 
Re = UNUSED (PRESERVED) 
R4 = PCB ADDRESS (PRESERVED) 


N THE WAIT 


N: 
EMENTS THE NUMBER OF PROCESSES I 
8 E VALUE. 


SE 
Y THE SPECIFIED PCB AND STAT 


SS ak ah hh hh db db teh eh ee el ed ld De ed al a Dake Dee ek ee Deke tae ee ee ae tee ae ee 


D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
8 
9 D IMPLICIT INPUTS: 
p PCB LOCATED BY ADDRESS IN R4 
6 D IMPLICIT OUTPUTS: 
D COUNT IN WAIT QUEUE HEADER IS DECREMENTED IF STATE IS A WAIT 
0040 STATE. 
004D 
$3 ae 
09 D CHSUNWAIT:: ; DECREMENT PROPER WAIT COUNT 
1A 7B'AF 51° €1 004D BBC R1,B*WAITMSK,20$ ; SKIP OUT IF NOT WAIT STAT 
51 03 681 00 : CMPW 30s #SCHSC_CEF RI ; CHECK FOR COMMON EVENT FLAG WAIT 
16 13 00 BEQL 30% ; CEF WAIT 
51 OC C& 0057 298 MULL $#WQHSC_LENGTH,R1 ; COMPUTE BYTE INDEX TO WQ HOR 
50 00000000 EF st 44 O5A 299 MOVAB L°SCHSAG WOHDRCR1],RO ; COMPUTE ADDRESS OF WAIT Q HEADER 
08 AO 8B 0 ¢ 00 108: DECW  WQHSW_WOTNT(RO) ; DECREMENT WAIT QUEUE COUNT 
0118 C4 O000'CF 00 00 01 MOVL  W*EXESGL_ABSTIM,PCBSL_WAITIME(R4) ; Record event time 
05 bes 8 208: RSB ; RETURN 
50 2— AG 9A O60 0 30$ MOVZBL PCBSB_WEFC(R4) ,RO ; WAIT CLUSTER NUMBER 
50 50 A440 00 0071 5 MOVL  PCBSL~EFCS(R4)EROJ.RO : GET CLUSTER ADD 
50 14 C0 O78 06 ADDL #CEBSC_WOFL,RO ; POINT TO WAIT QUEUE HEADER 
e711 On o? BRB 10$ : GO DECREMENT WAIT COUNT 
078 309 GMASK CEF ; COMMON EVENT FLAG 
078 310 GMASK _LEF ; LOCAL EVENT FLAG WAIT 
O78 11 GMASK LEFO ; LOCAL EVENT FLAG WAIT 
78 19 GMASK HIB ; HIBERNAT WAIT 
783 GMASK HIBO ; HIBERNATE WAIT 
7B 314 GMASK FPG ; FREE PAGE W 
78 315 GMASK COLPG ; COLLISION PAGE WAIT 
78 16 GMASK PFW ; PAGE FAULT WAIT 
7B 3 GMASK SUSP ; SUSPENDED WAIT 
78 18 GMASK SUSPO ; SUSPENDED WAI 
7B 3 GMASK MWAIT ; MUTEX WAI 
00000F FE 28 39 WAITMSK:.LONG WAITST ; MASK OF WAIT STATES 
| 
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v04-000 SITUATIONAL PRIORITY INCREMENT TABLE -SEP-1984 03:47:04 (CSYS.SRCIRSE.MAR;1 (1) 
2 3 .SBTTL SITUATIONAL PRIORITY INCREMENT TABLE 
7F 5 : FIXED DATA 
7F $ : SITUATIONAL PRIORITY INCREMENT TABLE 
Mi ; (INDEXED BY PRIORITY INCREMENT CLASS) 
7F § x 
7F 0 B_PINC: : 
7F 1 .BYTE + CLASS 0 - NONE 
0 ; “BYTE : CLASS 1 = 1/0 COMPLETE 
BYTE : CLASS : = RESOURCE AVAIL 
4 ; i “BYTE 4 : CLASS 3 = TERM OUTPUT COMP 
6 : “BYTE 6 : CLASS 4 = TERM INPUT COMP 
4 
4 ’ EXESTATE: EXECUTABLE STATE MASK 
00003000 0 é 39 .LONG <1@SCHSC_COM>!<1aSCHSC _cbmo> 


RSE - REPORT SYSTEM EVENT 16-SEP-19 :06:34 VAX/VMS Macro V04-00 Page 10 
Vox-000 SCHSCHSE = CHANGE STATE TO EXECUTABLE mets Bt: 2S: 3 SYS.SRCIRSE.MAR; 1 i 
a, .SBTTL SCHSCHSE = CHANGE STATE TO EXECUTABLE 
44 ; "FUNCTIONAL DESCRIPTION: 
45 ; CHSE CHANGES THE STATE OF A PROCESS, AS REPRESENTED BY 
0 46 i : ITS PCB, TO AN EXECUTABLE STATE. THE RESCHEDULING INTERRUPT 
0 47 : WILL BE TRIGGERED IF THE PROCESS IS RESIDENT AND HAS A PRIOITY 
0 48 ; GREATER THAN THAT OF THE CURRENTLY EXECUTING PROCESS. A 
0 49 ; PRIORITY INCREMENT CLASS NUMBER SUPPLIED AS A REGISTER CONTAINED | 
0 50 : ARGUMENT IS USED TO COMPUTE THE NEW PROCESS PRIORITY FROM ITS 
008 31 : BASE PRIORITY. 
09 38 | > CALLING SEQUENCE: 
09 24 ; BSB/JSB SCHSCHSE 
0088 06 : INPUT PARAMETERS: 
0088 357; RO = NEW PRIORITY (SCHSCHSEP ONLY 
0088 38 ; R2 = PRIORITY INCREMENT CLASS NUMBER CHSCHSF ONLY) 
0088 59 ; 0 => NO IN CREMENT CPAGEF AULT 1/0 COMPLETIONS 
088 360; 1 => NON-TERMINAL 1/0 COM 
0088 361 ; g => RESOURCE AVAILABILITY 
0088 6¢ : => TERMINAL OUTPUT COMPLETION 
008 63 ; 4 => TERMINAL INPUT COMPLETION 
0088 64 ; R4 = PCB ADDRESS 
0088 366 : IMPLICIT INPUTS: 
0088 367 ; SCHS$AQ_COMT - COMPUTE QUEUE HEADERS FOR COM,COMO STATES 
0088 368 : SCHSGB-PRI = CURRENT PROCESS PRIORITY. 
ae 
0088 371 ; OUTPUT PARAMETERS: 
0088 rg : R2 - R2 , PRIORITY INCREMENT CLASS NUMBER IF SCHSCHSE. (PRESERVED) 
0088 23 : R3 = R3 (PRESERVED) 
0088 75; IMPLICIT QUTPUTS: 
088 06 i ; SCHSAQ_COMH = VECTOR OF COMPUTE QUEUE HEADERS. 
0088 A ; SCHSGL-COMQS - COMPUTE QUEUE SUMMARY BIT VECTOR. 
0088 379 : COMPLETION CODES: 
boss 38) ome: 
0088 Be : SIDE EFFECTS: 
0088 383; THE PCB SPECIFIED IS REMOVED FROM ITS PRESENT STATE QUEUE 
0088 4: AND INSERTED IN THE APPROPRIATE COMPUTE QUEUE, COM OR COMO, 
08 5; AT THE PRIORITY COMPUTED FOR THE SPECIFIED SITUATION CLASS. 
$ ; THE SUMMARY BIT FOR THE DESTINATION STATE QUEUE IS SET T | 
0 : NOTE THAT IT IS OCCUPIED. 
8; IF THE NEW PRIORITY FOR THE PROCESS IS GREATER THAN THAT OF 
0 9; CURRENT PROCESS AND IT IS RESIDENT, THE RESCHEDULING INTERRUPT 
9 30 ; WILL BE TRIGGERED. 
9 : 
38 SCHSCHSE:: : CHANGE 10 EXECUTABLE STATE 
5 4 94 CLRL CLEAR HIGH SUM BITS FOR ADDB 
50 2F AG F1 AFG 3 A 395 SUBB3 My PCBSB_ PRIB(RAS R : ADD PRIORITY INCR 
0B A4 4 3 3 cHPB PCB$B_PRI(R4)~ : CHECK ior > CURRENT PRI 
50 OB Ad 90 33 98 MOVB Se _PRI(R4) ,RO t KEEP CURRENT PRIORITY INSTEAD 
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Voe-000 SCHSCHSE = CHANGE STATE TO EXECUTABLE g-SEF 1382 tt 96: 3 SYS.SRCIRSE.MAR; 1 ° 
10 50 91 0098 399 10$ CMPBsRO, #16 ; CHECK FOR RESULT >15 
4 18 96 4 : BGEQ SCHSCHSEP : YES, USE COMPUTED VALUE 
50 2FA4 9 Ap 4 : MOVB PCB$B_PRIB(R4),RO : KEEP AT BASE IF LESS 
AG 403 ; 
OAs ‘ He ; SCHSCHSEP = SUB-ENTRY POINT WITH PRIORITY PRECOMPUTED IN RO 
OA4 4 6 
OA4 407 SCHSCHSEP:: : ENTRY WITH PRIO IN RO 
51 12 DB OOA4 408 MFPR $_IPL,R1 : GET IP 
08 51 #401 OOA7 409 CMPL +44 RPTPLS. SYNCH 3; MUST BE AT SYNCH OR GREATER 
62. (19 AA 410 BLSS  BADIPL : NO, FATAL 
51 64 «OF AC 41 REMQUE (R4),R1 + REMOVE FROM CURREN QUEUE 
1¢ 12 OOAF 41g BNEQ 108 + CONTINUE If QUEUE NOTEMPTY 
2c aS) «0 3C-«(00B1— ss 41 MOVZWL pcBsu STATE(R4),R1 + GET OLD STATE 
13 (BAF 51 gi 00B5 414 BBC Exe STATE 10$ > NO SUMMARY ITS 
0B A OOBA 415 MOVZBL Pcé ro) RI + GET CURRENT PRI 
03 2C AS) OED. s«00B 416 BLBC su eae cRdD ss : SKIP IF RESIDENT 
51 20 C0 OCo 41 ADDL + MAKE NONRES PRIO 
00 OOOODD00'EF 51 ES O0CS 418 S$: BBCC Ri OE CHSGL COMQS,10$ =: CLEAR PRESENCE BIT FOR STATE. 
0B AG) C50 90 00CD 419 108 MOVE RO. PcBSB aphT (Rs : sA VE NEW PRIO 
51 OC OD 9001 420 MOVL  #SCHS$C RI : ASSUME COM STATE 
12 24 a6 €8 O00D4 421 BLBS  PCBSL Cf OeRe) 208 t CHECK FOR RESIDENCE 
51 D6 00D8 4 g INCL RV. + COMO=COM+1 
50 20 CO OODA 4 ADDL2 #32,R0 : COMO HEADERS FOLLOW COM 
00 00000000'EF 50 E 00ODD 424 BBSS _—RO, <SCHSGL _COMQS,15$ =: SET SUMMAR Y BIT FOR NEW QUEUE 
01CD 00ES 425 15$ BSBW CHSSWPWAKE~ : WAKE SWAPPER 
i. 11 0068 426 BRB : COMPLETE STATE CHANGE 
50 O0000000'EF” 91 OOEA 427 208 CMPB “SCHS$GB_PRI.RO ; Is PRIO GREATER THAN CURRENT PROCESS 
03 19 OOF 428 BLSS os : ONT RESCHEDULE 
OF3 429 SOFTINT #IPL$_SCHED : TRIGGER RE SCHEDULE INTERRUPT 
00 00000000'EF 50 €2 OOF6 430 3 $: $$ ROLL tgenser COMQS,35$ : SET SUMMARY BIT FOR NEW QUEUE 
2c AG O51 80 OOF 431 $: MOVW = R11 PCBSW. STATE (RSS : SET NEW STATE 
51 00000000'EF4O 7E 0102 4 é MOVAQ tAScHBAge COMTCROJ,R1 ; COMPUTE HDR ADDR 
91 64 OF 010A INSQUE a(RT)+ : INSERT IN NEW QUEUE 
0 9190 4 , RSB + RETURN 
0108 4 6 BADIPL: BUG_CHECK BADRSEIPL,FATAL : BAD IPL AT ENTRANCE TO RSE 
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Voo-000 SWPO = SWAP OUT SIMPLE NON-EXECUTABLE oe ae 84:06:34 SYS. SRCIRSE.MAR; 1 . t?) 
i 439 ~SBTTL SWPO = SWAP OUT SIMPLE NON-EXECUTABLE 
1} it ; SWPO = SWAP OUT ACTION ROUTINE FOR SIMPLE NON-EXECUTABLE STATES 
1 443 SwPo: ; NON-EXECUTABLE OUTSWAP 
FF38 48630 «(011 444 BSBW SCHSUNWAIT + REMOVE FROM WAIT QUEUE 
2c AG) OBS SCO 445 INCW PCB$W_STATE(R4) : UPDATE STATE NUMBER 
64 OF 11 44 REMQUE (R4), . move FROM WAIT QUEUE 
1080 64 OF O11B 44 INSQUE (R4) @WOQHSL WOBL *WaHs LENGTH(R ) ; INSERT AT TAIL OF QUEUE 
Be 11F «6448 INCW WOHSW_WOCNTFWOHSC_LENGTH(RO) ; NOTE COUNT IN WAIT QUEUE 
1 449 RSB 3 EX 
153 af 
o1 43¢ : SWPOE = SWAP OUT EXECUTABLE ACTION ROUTINE 
50 OB AG 9A O01 454 SWPOE: MOVZBL PCB$B_PRI(R4),RO : GET PRIORITY 
FF7A 31 O127 455 BRw SCHSCASEP > AND CHANGE TO COMO 
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= REPORT SYST 
SCHSQEND = QU 


Sal Dep > dill Ith ekki tek eh ek ek kek eke ek al ald lal lal ata lak a ek 


A non-zero Limit exists, check for processor time expiration 


EVENT 16-SEP-1984 1:06:34 Anives Macro v04-00 Pa 
TUM END ROUTINE Breer obe Obiesioe PARC ES Hacre N04; ” 
.SBTTL SCHSQEND = QUANTUM END ROUTINE 
p++ 
: FUNCTIONAL DESCRIPTION: 
: SCHSQEND IS CALLED BY THE TIMER WHEN THE QUANTUM FOR THE CURRENT 
; PROCESS HAS BEEN EXHAU A NEW Q IS INITIALIZED 
; — PROCESS PLACED AT” Te BASE PRIORITY AND THE RESCHEDULING 
; INTERRUPT TRIGGERED. A CHECK IS MADE FOR CPU TIME LIMIT EXPIRATION 
; AND APPROPRIATE EXIT ASTS GENERATED WHEN THE LIMIT IS REACHED. 
: THE AUTOMATIC WORKING SET SIZE LOGIC IS INVOKED IF ENABLE 
; TRADEOF F WORKING SET SIZE AGAINST PAGEFAULT RATE. 
: CALLING SEQUENCE: 
: BSB/JSB SCHSQEND 
> INPUT PARAMETERS 
; R4 = PCB ADDRESS OF CURRENT PROCESS 
; RS = PROCESS HEADER ADDRESS 
: IMPLICIT INPUTS: 
: PCB OF CURRENT PROCESS 
: PROCESS HEADER OF CURRENT PROCESS 
: IMPLICIT OUTPUTS: 
; PHD$W_QUANT = INITIALIZED TO AN NEW QUANTUM 
: PCBSV-INQUAN = INITIAL QUAN ANTUA f LAG CLEARED 
SCHSQEND: : QUANTUM END ROUTINE 
BBCC #PCBS$V_INQUAN,PCBSL stsche) 108 CLEAR INITIAL QUAN FLAG 
10S: MOVW s¢ cHscye QUAN, PHD$W_QOANT(RS) SET NEW QUANTUM 
MOVL W*EXESGL_ABSTIM, PCBSL LAWAITINE (RQ). ; Record event time 
CMPB =s- PCBSB_PRT(R4) #16 ; CHECK FOR REAL-TIME 
BLSS 50S : YES 
: CHECK FOR CPU TIME LIMIT EXPIRATION 
. TSTL  PHDSL_CPULIM(RS) ; 1s. THERE ANY ceieir? 
BNEQ $ YES 60 CHECK IT OUT 
40S: BBS #PCBSy DISAWS PcasL_ sts(Re) £550 BRANCH IF ADJUSTMENT DISABLED 
MOVL 7 eee WSINC : ASSUME’ INC 
BEQL : BR IF i? AUTO WS ADJUSTMENT 
BSBB buyst : ELSE GO 
45$: TST is CH$GL_COMOQS ; is THERE ANY INSWAP PENDING? 
nove PCBSB oPRiB crs), PCBSB_ pRIiRg) : YES, FORCE TO BASE PRIORITY 
47$:  SOFTINT siPtaese SCHED : TRIGGER RESCHEDULING INT 
50$:  RSB : AND RETURN 


If CPU time Limit is exceeded then an additional amount of time will 


SS —-y 
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SCHSQEND = QUANTUM END ROUTINE 873 p= 1984 84:29:32 ESYS\SRCIRSE MAR: 1 ne a 


be allowed for each access mode. An AST will be issued to cause an 


: exit for each of the access modes. The additional time allowance will 
; be provided for each access mode. 


50 38 AS «6SC AS C3 
dDé6—s*dIF 


50. O000'CF C 
6 A 8 C 
0110 C C 
50 60A5 9 
Cl AF 9 

53 20AC BF 3 
00BD 30 


60$: SUBL3 PHDSL_CPULIM(RS) ,PHDSL_CPUTIM(RS),RO ; HAS LIMIT BEEN REACHED 
BLSSU 408 : NO, CONTINUE NORMALLY 


CPU LIMIT HAS EXPIRED, AN AST WILL BE SENT TO NOTIFY THE PROCESS 


ADDL2 W*SGNSGL_EXTRACPU,RO ; COMPUTE TOTAL AMOUNT OF EXTRA TIME 
RO,PHDSL-CPULIM(R5) : GIVE EXTRA TIME FOR CLEANUP 
RO,PHDSL-EXTRACPU(RS) ; AND RECORD AMOUNT OF EXTRA TIME 

MOVAB PHOSB_CPOMODE(RS),RO ; GET ADDRESS OF AST ACCESS MODE 

: SET RETURN ADDRESS 

#SS$_EXCPUTIM,R3 > PASS EXIT STATUS TO SENDAST 

SENDAST ; SEND AST TO PROCESS 


MOVZWL 
SCHSFORCEDEXIT:: 
BSBW 
; CPU TIME EXPIRATION AST HANDLER 
CPUABRT:.WORD 0 : NTRY MASK 
CHMK = S*#ASTEXIT : ROM AST ROUTINE (CLEAR AST) 
10$: SEXIT_S 4 (AP) : O INVOKE EXIT HANDLERS 
Feo BRB 10$ : N CASE 
| 
| 
| 
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Adjust — set size automatically to achieve desired tradeoff 
between page fault rate and wh set size. There are two page 
fault rate thresholds: SCHSGL_PFRATL, the lower threshold and 
SCHSGL_PFRATH, the higher threshold. Each time SCHSQEND is invoked, 
the page fauit rate is computed and compared with these thresholds. 
If it 1s abuye the high threshold the working set size is increased 
by SCHSGW_WSINC and if the rate is below the lower threshold, the 
yore ’ne set size is decreased by SCHESY MESEC. The actual adjustment 
° 


is performed by a normal kernel mode AST. 


SCHSGW_AWSMIN and WSEXTENT per process that establish upper and lower 
values for automatic working set size adjustment. Working set size 
adjustment is further constrained by the process quota. 


R3 - Working set increment 
SADJUST: 


SUBL3 PHDSL My ht | a 


: Automatic at justaent of working set size is constrained by the values: 
u 


AUTO-ADJUST WORKING SET SIZE 
é COMPUTE DELTA-T 
PHDSL-CPUTIM(R 
10$ BR IF NON-ZERO 

ELSE FORCE TO ONE FOR DIVIDE 
Is T 


S 
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10$: 
CMPL OO ecueet AWSTIME 3 


= IS A MEANINGFUL INTERVAL? 
N LATER 
SUBL3 —PHDSL_PELREF 


: NO * AGA] 
( 
5 


DELTA-PGFLT 


E 
R5) ; SAVE NEW PAGE FAULT REF 
) |; AND SAVE CPUTIME REF 


H 
T 
R5),- ; COMPU 
(RS) RI : 

S(R5) .PHDSL_ PFLREF 
R5) ,PHDSL_TIMREF (R 
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609 
610 WSERR: 


M_EVENT 


B 
NOADJUST: 


ADJUSTUP: 
SUBW3 


MOVZWL 
L 


= 
Oo 
bad 


] 
ADJUST: 
B 


ADJWS: 


BUG_CHECK WSSIZEERR,FATAL ; WORKING SET SIZE CALC IN ERROR 
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16-SEP-1984 01:06:34 VAX/VMS Macro v04-00 Page 15 S¢l 
eset 1 3:9 $:34 Yeys. SRCIRSE.MAR; . (1) vO 
#1000,R1 ; MULTIPLY BY SCALE FACT 
; AND COMPUT E PAGEFLTS/1 SEC 
»PHOSL PFLTRATE (RS) ; SAVE CURRENT 
nu “SCHSGL_PFRA ; ARE WE ABOVE AtGd THRESHOLD ? 
; | 
W'SCHSGL WSDEC,R3 ; “GET aDECREMENT VALUE 
W*SCHSGL_PFRATL ; ARE LOW THRE SHOL D2 | 
+4 Buu BEA Loe BAN D -- NOTH|NG TO DO 
PCBS PPGCNT(R4), u*scHscl ial ARE WE AT LOWER WS LIMIT? 
pJOSsT S, NOTHING TO DO 


PHDSW_WSLIST(RS) ,PHDSW =wSauoTacas) R1 
€ HIGH LIMIT WILL BE QUOTA 
PHDSW_WSSIZE(RS5) ,RO ET <1 


TCU URRENT WORKING S 
W*SCHSGL _BORROWLIM, ede Andee henony THERE Lois OF FREE PAGES? 


5 Y IS AT A PREMIUM 
PHDSW_WSLIST(RS) ,PHDSW MGEXTENT (R3) 
ALL OW L ARGER GROWTH size 


ARE WES .) a MAXIMUM SIZE? 
NOA ADJ UST YE CAN'T 60 ANY LARGER 
PCBSW_GPGCNT(R4) ,PCBSW_ rielttas R1 ig —s PHYSICAL SIZE 
RO,R1~ ; Be sure that pages on't exceed WS 
use + BRANCH IF WS ty THAN PAGES IN USE 
. -RO,R2 ; Compute 75% of WSSIZE as page threshold 
1 : +H threshold not exceeded, 


: sivarnent 
; sft ADDRESS OF AST ACCESS MODE 
; SEND AST TO PROCESS 


Se eeeee 
o 
. 
n 
oe 


NOADJUST 
PHDSB_AWSMODE (R5) ,RO 
SENDAST 


0 
@#CTLSGL_PHD,R1 


GET PHD ADDRESS sO 
PADS. AWSMODE (RI) ACCES 


S_ MODE FLAG CAN BE RESET 
oo gg HA BY VPARARETER IN AST ARGLIST 


+ 
H 3 
R - REPORT SYSTEM EVENT 16-SEP-1984 1:06:34 VAX/VMS Macro v04-00 Page 1 | 
¥oe-000 SENDAST = Send AST to process ae ets 1 94:06: 3% Heys. SRCIRSE.MAR;1 ° (1) 
rt ei$ a -SBTTL SENDAST = Send AST to process 
40 14 : atari tt dd po worn IS at BY BET TO SEND ASTS TO THE 
4D 6615; PROCESS THAT INVOKE FUNCTIONS UNAVAILABLE T Ue ENVIRONMENT OF SCHSQEND. 
rt $18 3 THESE INCLUDE ADJUSTING THE DORKING SET AND OK TING. 
4p 618 : INPUT PARAMETERS: 
4D 620 : RO = ADDRESS OF ACCESS MODE F 
4D 621; (NEGATIVE CONTENTS C PREVENT. SENDING AST) 
40 6 ¢ 3 R3 - AST TER 
4D ? : R4 - PCB ADDRESS 
4D 4; (SP) - AST ADDRESS 
rt ? 5 ; 4(SP) - RETURN ADDRESS FOR THIS SUBROUTINE 
4D 6 5 SENDAST: ; 
29 OD 4D 628 PUSHL Ro ; SAVE Sty OF ACCESS MODE 
5 OD GF 629 PUSHL R ; AND AST PARAMET 
60 95 51 630 TSTB (RO) ; CHECK VALUE OF ACCESS D 
37 19 23 631 BLSS 10$ DO NOT QUEUE AST m 14 NEGATIVE 
32 24 AG 01 0 8 5 6 ¢ BBS #PCBSV_DELPEN,PCBSL _sTs(Re) 10$ NOR i‘ RKED FOR DELETE 
1¢ ic cA Cb MOVZWL #ACBSC~LENGTH.R1 : SET SIZE REQUI RED 
of Ad 6 0 30 : 4 BBW EXESALONONPAGED ; ALLOCATE m, BLO ck 
OA A2 9¢ 5 0 8 636 MOVB #DYNSC ACB, ACBSB TYPE (R23 ; SET TYPE i TET RUCTURE 
08 Ag 1 Bn 0 67 637 MOV 1 .ACBSu SIZE (R2) ; AND SIZE OF STRUCTURE 
ns ee eR Sa Bag a 
eae SE 97 § sf 640 DECB oi Spys IN or agectete FOR THIS ACCESS MODE 
18 2 BE dO 8 76 = 641 MOVL (SP)+, ACBS$L_A T(R2) SET AST 
OC A 60 A4 dO 7A 64 MOVL PCBSL PIDCRED atest pot SEY PID FOR AST 
BB O27F 64 PUSHR #*M<RZ,R5> SAVE REGS FOR QAST 
55 3 dO 6 81 644 MOV | a ; SET ADDRESS OF 
5 4 4 645 CLRL ; NULL PRIORITY INCREMENT 
FD77" 0 6 o48 BSBW SEHSOA 3; QUEUE AST FOR P S 
30 64 POPR #*M<R4, shs> s 4 PCB,PHD ADDRESSES 
Be : o48 RSB ; EXIT 
C 650; Error path if nonpaged pool allocation fails or if AST access mode is 
© 631 2 - ative, indicating either an AST in progress (for automatic workin ng 
: $36 3 adjustment) or all access modes are done (for CPU time Limit expiration) 
5E 0c co C 654 10$: ADDL #12,SP ; CLEAN PARAMETERS FROM STACK 
05 4 $23 RSB 3 AND EXIT 
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T SYSTEM EVENT 16-SEP-1 70 AX/VMS Macro V04-00 
= Send AST to process e786 P-19 138 83: 2S: 3 SYS.SRCIRSE.MAR;1 
-SBTTL SCHSWAKE = WAKE PROCESS INTERNAL 


;++ 
; Jagerche °° | DESCRIPTION: 
HSWAKE WAKES THE PROCESS SPECIFIED BY THE PID SUPPLIED. 


: CALLING SEQUENCE: 
: BSB/JSB SCHSWAKE 


; INPUT PARAMETERS: 
R1 = PIO OF PROCESS TO WAKE 


OUTPUT PARAMETERS: 
RO = COMPLETION STATUS CODE 
R4 = PCB ADDRESS OF PROCESS AWAKENED 


FPP OOOOVOOOOOVOOOOOOVOOOOVOVOOOOOOOOOO 
© 0000909 09 09 09 09 09 09 09 BINION NS NSO AAA OA AAO 
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0 : COMPLETION CODES: 
; S$_NORMAL = NORMAL SUCCESSFUL COMPLETION STATUS 
3 $33- “NONEXPR = NONEXISTENT PROCESS (INVALID PID) 
0 : ENVIRONMENT : 
5 3 IPL = IPL$_SYNCH 
0 : 
0 SCHSWAKE: : ; WAKE ppROCESS INTERNAL 
“ 8 9 MOVZWL R1 RG : GET PROCESS INDEX (PIX) 
54 0000'DF44 00 MOVL  awW*SCH$GL PCBVECCR4J, Rs ; LOOK up PCB ADDRESS 
60 a6 51D 9 CMPL  =R1, PCBSL_PID(R4 VER Irv PID 
10 iF D BNEQ REPORT ERROR 
00 26046 OC ECE f os BBSS § #PCBSV_WAKEPEN,PCBSL _STSiRd), 105 ; SET WAKE PENDING 
52. 02 9A 4 "  MOVZBL #PRIS_RESAVL,R2 : SET PRIORITY INCREMENT CLASS 
7 RPTEVT WAK + REPORT WAKE EVENT 
50 01 3C O2AB MOVZ2WL #SS$_NORMAL,RO > SET SUCCESS CODE 
05 AE 20$: RSB + RETURN 
50 O8€8 B&F 3¢ AF 694 308: MOV ZL #SS$_NONEXPR,RO : SET NONEXISTENT PROCESS STATUS 
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SYS.SRCIRSE.MAR; 1 
«SBTTL SCHSSWPWAKE = WAKE SWAPPER PROCESS 


++ 
seth 2° DESCRIPTION: 
SCHSSWPWAKE AWAKENS THE SWAPPER PROCESS TO PERFORM SOME OPERATION. 


CALLING SEQUENCE: 
BSB/JSB SCHSSWPWAKE 


INPUT PARAMETERS: 
NONE 

OUTPUT PARAMETERS: 
RO-R4 PRESERVED 

SIDE EFFECTS: 


A WAKE EVENT IS GENERATED FOR THE SWAPPER PROCESS WHICH CAN 
CAUSE THE PROCESSOR TO BE RESCHEDULED. 


SCHSSWPWAKE: : ; WAKE SWAPPER PROCESS 
TSTL “SCHSGL_COMOOS ; ANY INSWAP CANDIDATES? 
BNEQ T WAKE SWAPPER 


BGEO 7 YES, MUST WAKE SWAPPE 
CMPL “SCHSGL_FREECNT.L“SCHSGL_FREELIM ; DO WE NEED FREE PAGES? 
BLSS 0$ s"YES, MUST WAKE SWAPPER THEN 
TSTW “SCHSGW_DELPHDCT : ARE THERE DELETED HEADERS TO PURGE? 
BNEQ : YES, MUST WAKE SWAPPER THEN 
TSTL WEXESGL_PFATIM : WAS THERE A POWER FAIL RECOVERY? 
BEQL : BR IF NONE 
10$: STB L*SCHSGB SIP : SWAPPER ALREADY BUSY? 
BNEC 0$ : BR IF YES 
PUSHR  #*M<RO,R1,R2,R3,R4> > SAVE RO-R4 
MOVL W*SCHSGL_SWPPID.R1 : GET PID OF SWAPPER 
BSBB Ss SC H$W : AND AWAKEN IT 
POPR #*M<RO,R1,R2,R3,R4> + RESTORE RO-R4 
20$:  RSB : AND RETURN TO CALLER 
END 


:_YES, MU THEN 
CMPL L“SCHSGL_MFYCNT,L“SCHSGL_MFYLIM ; ARE THERE a BL a, TO WRITE? 


RSE 
Symbol table 
acess oe 
ACBSB_TYPE 
Nate LENGTH 
ACBSL_ASTPRM 
Arete C10 
ACTION 
ADJUST 
ADJUSTUP 
ADJWS 
ASTEXIT 
BADIPL 
BUGS _BADRSE TAL 
BUGS ILLEVTNUM 
BUGS “WSSIZEERR 
cEDSL WOFL 
EFEVT 
EBUABR T 


CTLS$GL_PHD 
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Th rking set_Limit was 1650 pages. 
62765 bytes (123 pages) of virtue memory were used to buffer the intermediate code. 


RSE = REPORT SYSTEM EVENT 16-SEP-1984 01:06:34 VAX/VMS Macro v04-00 Page 
Symbol table aes 84:06:34 UOYS SRCIRSE MAR: 1 . 9) 
SCHSGW_QUAN eeneeeee = §6X 
SCHSQAST eeeneeee x 
SCHSQEND igA RG 
SCHSRSE 9 RG 
SCHSSWPWAKE BS RG 
SCHSUNWAIT 3 RG 
SCHSWAKE 90 RG 
SENDAST 4D R 
SGNSGL_EXTRACPU eerereee =X 
SS$_EXCPUTIM = 000 ag 
SS$_NONEXPR = 
$$$ _NORMAL 2 } 
= 
STACT QOOOOOIE R 83 
STET = 000 2 2 
STMSK = 00001 
SWPO 00000112 R 0 
SWPOE 000001235 R 0 
SYSSADJWSL kereerer GX 0 
SYSSEXIT eereeneer GX 03 
WAITMSK 0000078 R 03 
AITST = QOOOOFFE 
WOHSC_LENGTH = 0000000C 
H$L_WOQ = 00000004 
WQHSW WQCNT = 00000008 
WSADJOST 000001A0 R 03 
WSERR 00000249 R 03 
$e orem coer nme ww noe re + 
! Psect synopsis ! 
name ocation oO. ributes 
PSECT Allocati PSECT N Attribut 
» 6 « 00000000 0.) 00 ¢ OQ.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 01 ¢ -) NOPIC USR CON S LCL NOSHR EXE’ RD WRT NOVEC BYTE 
AES2 Q0000002C ( 44.) Q2 ¢ ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
AES1 000002F9 ¢ 761.) O03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
eee ew nme new eee n nnn ere cess 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization :00:00.09 :00:01.9 
Command processing 138 : 9 4 :00: 4-38 
Pass 1 331 :00:10. :00:54.14 
Symbol table sort + 4.3 
ass 14 :00: 2-9 
Symbol table output 1 :00:00. :00:00. 
Psect synopsis output :00:00. :00:00. 
Cross-reference output :00:00. :00:00. 
Assembler run totals 65 :00:15. :00:56.16 
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VAX-11 Macro Run Statistics -SEP-1984 4 (CSYS.SRCIRSE.MAR;1 (1) 


There were 60 pages of symbol tabie space allocated to hold 1060 non-local and 26 local symbols. 
source lines were read in Pass 1, producing object records in Pass 2. 
pages of virtual memory were used to define 25 macros. 


Geweoeeeeeeoeeseeeseeseoecos} 


! Macro Library statistics ! 


¢ewoeeeoeeeseeeeeeeeeesoseen} 


Macro Library name Macros defined 
$3 SSDUA B: Aa B42 B;1 1 

“$255SDUA S818) ie MLB;2 

TOTALS (all Piasart = 2 


1119 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RSE/OBJ=OBJ$:RSE MSRC$:RSE/UPDATE=(ENH$:RSE) +EXECML$/LIB 
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